home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-2 / runtime.sit / extcall.r < prev    next >
Encoding:
Text File  |  1992-09-19  |  410 b   |  23 lines  |  [TEXT/MPS ]
  1. /*
  2.  * extcall.r
  3.  */
  4. #if !COMPILER
  5. #ifdef ExternalFunctions
  6.  
  7. /*
  8.  * extcall - stub procedure for external call interface.
  9.  */
  10. dptr extcall(dargv, argc, ip)
  11. dptr dargv;
  12. int argc;
  13. int *ip;
  14.    {
  15.    *ip = 216;            /* no external function to find */
  16.    return (dptr)NULL;
  17.    }
  18.  
  19. #else                    /* ExternalFunctions */
  20. static char x;            /* prevent empty module */
  21. #endif                     /* ExternalFunctions */
  22. #endif                    /* !COMPILER */
  23.